home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / quit.dir / 00002_Click & Rollover.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  2.5 KB  |  101 lines
  1. on hExitPressButton
  2.   global gLastSprite
  3.   set vSprite to the clickOn
  4.   set vCastNo to the castNum of sprite vSprite
  5.   set vCastNam to the name of cast vCastNo
  6.   puppetSprite(vSprite, 1)
  7.   if (vCastNam = 0) or (vCastNam = EMPTY) then
  8.     set the castNum of sprite vSprite to vCastNo + 1
  9.   else
  10.     if vCastNam contains "ROLLOVER" then
  11.       set the castNum of sprite vSprite to vCastNo + 1
  12.     else
  13.       set the castNum of sprite vSprite to the number of cast (vCastNam & "-down")
  14.     end if
  15.   end if
  16.   updateStage()
  17.   repeat while the stillDown
  18.     hStillDownScript(vSprite)
  19.   end repeat
  20.   if (vCastNam = 0) or (vCastNam = EMPTY) then
  21.     set the castNum of sprite vSprite to vCastNo
  22.   else
  23.     set the castNum of sprite vSprite to the number of cast vCastNam
  24.   end if
  25.   puppetSprite(vSprite, 0)
  26.   updateStage()
  27.   if the mouseCast = the castNum of sprite vSprite then
  28.     return 1
  29.   else
  30.     return 0
  31.   end if
  32. end
  33.  
  34. on hExitRolloverScript vFrameLabel
  35.   global gLastSprite
  36.   set vNowSprite to 0
  37.   if rollOver(47) then
  38.     set vNowSprite to 47
  39.   else
  40.     if rollOver(48) then
  41.       set vNowSprite to 48
  42.     end if
  43.   end if
  44.   if not (vNowSprite = 0) then
  45.     set vCastNo to the castNum of sprite vNowSprite
  46.     set vCastName to the name of cast vCastNo
  47.     if (vCastName contains "NOOP") or (vCastName contains "DOWN") then
  48.       set vNowSprite to 0
  49.     end if
  50.   end if
  51.   if not (vNowSprite = 0) then
  52.     hExitRollOverOn(vNowSprite)
  53.     set gLastSprite to vNowSprite
  54.   else
  55.     puppetSprite(gLastSprite, 0)
  56.     set gLastSprite to 0
  57.   end if
  58. end
  59.  
  60. on hExitRollOverOn vNowSprite
  61.   global gLastSprite
  62.   if not (gLastSprite = vNowSprite) then
  63.     set vCastNo to the castNum of sprite vNowSprite
  64.     set vCastNam to the name of cast vCastNo
  65.     puppetSprite(vNowSprite, 1)
  66.     set the castNum of sprite vNowSprite to the number of cast (vCastNam & "-ROLLOVER")
  67.     if not (gLastSprite = 0) then
  68.       puppetSprite(gLastSprite, 0)
  69.       updateStage()
  70.     end if
  71.   else
  72.     nothing()
  73.   end if
  74. end
  75.  
  76. on hStillDownScript aSprite
  77.   if aSprite = 8 then
  78.     adjustVRPos(0, 10, 0)
  79.   else
  80.     if aSprite = 9 then
  81.       adjustVRPos(0, -10, 0)
  82.     else
  83.       if aSprite = 10 then
  84.         adjustVRPos(10, 0, 0)
  85.       else
  86.         if aSprite = 11 then
  87.           adjustVRPos(-10, 0, 0)
  88.         else
  89.           if aSprite = 12 then
  90.             adjustVRPos(0, 0, 10)
  91.           else
  92.             if aSprite = 13 then
  93.               adjustVRPos(0, 0, -10)
  94.             end if
  95.           end if
  96.         end if
  97.       end if
  98.     end if
  99.   end if
  100. end
  101.